#=== CHAPTER 01

#---{1401-12-02}---#

sample(x,size,replace ,prob)

sample(1:10,5)

sample(c("a","b","c") , 2)
sample(c("a","b","c") , 4)
sample(c("a","b","c") , 4 , replace = TRUE)
vector <- sample(c("a","b","c") , 1e6 , replace = T , prob = c(0.6,0.2,0.2))

table(vector)